home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 June / 1985-06.d64 / freeze factory (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  80 lines
  1. 10 print"[147]"spc(14)"please wait":poke53272,28:poke56,48:clr
  2. 20 poke56334,0:poke1,51:a=2047:b=12288:c=53248
  3. 30 fori=.toa:pokei+b,peek(i+c):next:poke1,55:poke56334,1
  4. 40 eg=0:restore:goto520
  5. 50 if((peek(p1)and2)=.)thend=w:goto190
  6. 60 if((peek(p1)and4)=.)thend=-t:g=2:goto190
  7. 70 if((peek(p1)and1)=.)thend=-w:goto190
  8. 80 if((peek(p1)and8)=.)thend=t:g=.:goto190
  9. 90 fora=.to3:ifz>e(a)thenifpeek(e(a)+w)=ntheni=w:goto110
  10. 100 ifz<e(a)thenifpeek(e(a)-w)=ntheni=-w
  11. 110 ifz>e(a)thenifpeek(e(a)+t)=ntheni=t:goto130
  12. 120 ifz<e(a)thenifpeek(e(a)-t)=ntheni=-t
  13. 130 ifpeek(e(a)+i)=nthenpokee(a),n:e(a)=e(a)+i:pokee(a)+c,t:pokee(a),5
  14. 140 ife(a)+i=zthen260
  15. 150 pokee(a),4:next
  16. 160 hh=hh+1:ifhh>htthenhh=.:h=h-1:ifh<0then310
  17. 170 print"";h;"[157] "
  18. 180 goto50
  19. 190 pokeu2,40:ifpeek(z+d)=nthenpokez,n:z=z+d:pokez+c,7:pokez,g:pokeu2,.:goto230
  20. 200 pokeu2,.:ifpeek(z+d)=6andpeek(z+d*2)<>nthen240
  21. 210 ifpeek(z+d)=6andpeek(z+d*2)=nthenqq=z+d:goto350
  22. 220 ifpeek(z+d)<6then260
  23. 230 goto90
  24. 240 fora=.to3:pokez+d,8:pokeu1,152:pokez,g:pokez+d,9:pokeu1,175:pokez,g+t:next
  25. 250 pokez+d,n:pokeu1,.:s=s+10:print"[158]>";s:goto90
  26. 260 fory=1to15:pokez,g+t:pokeu1,161:pokee(a),4:pokez,g:foro=1to20:next
  27. 270 pokee(a),5
  28. 280 next:pokeu1,.:fory=1to15:pokev,y:pokeu1,245:foro=1to25:next:next:pokeu1,.
  29. 290 sh=sh-1:print"[157][157][157][146]";sh"[157] ";:ifsh=.then310
  30. 300 goto50
  31. 310 pokez,n
  32. 320 print"              game over[146]             "
  33. 330 print"[129]press firebutton";
  34. 340 wait56320,16,16:goto40
  35. 350 pokeu2,100:pokeu2,120:pokeqq,n:qq=qq+d
  36. 360 ifpeek(qq)=nthenpokeqq+c,3:pokeqq,6:goto350
  37. 370 pokeu2,.:ifpeek(qq)<6thenpokeqq+c,3:pokeqq,6:s=s+1000:print"[158]>";s:goto390
  38. 380 qq=qq-d:pokeqq+c,3:pokeqq,6:goto50
  39. 390 fory=120to135:pokeu2,y:next:pokeu2,.
  40. 400 fora=.to9:pokeqq+c,t:pokeqq,11:pokeu2,135:pokez,g+t:pokeqq,10:pokez,g
  41. 410 pokeu2,100:pokeu2,.:next:pokeqq,4:pokeu2,.:eg=eg+1:ifeg>3then430
  42. 420 goto50
  43. 430 eg=.:fory=64to128:pokeu2,y:next:pokez,n:fora=.to3:pokee(a),n:next:z=1524
  44. 440 fory=.to3:foro=35to55:pokeu2,o:fora=1to10:next:next:next:pokeu2,.
  45. 450 fory=1902to1185step-1
  46. 460 ifpeek(y)=6thenpokey+c,t:pokeu2,120:fortd=1to25:next:pokey+c,3:s=s+25
  47. 470 pokeu2,.:print"[158]>";s:h=60:next:fory=5to25:pokeu2,y:next:pokeu2,.:pokez,g
  48. 480 pokez+c,7:ht=ht-t:ifht<1thenht=1
  49. 490 sh=sh+t:print"[157][157][157]";sh:lv=lv+1:print"[157][157][157]";lv
  50. 500 fory=1to10:b=1184+int(rnd(t)*700):ifpeek(b)=nandb<>zthenpokeb+c,3:pokeb,6
  51. 510 next:pokeu2,72:s=s+(h*10):print"[158]>";s:pokeu2,.:goto50
  52. 520 poke53281,1:poke53272,21:print"[147][159]the freeze factory!![146][144]"
  53. 530 print""spc(17-len(str$(s))/2)"score: "s:ifs>hsthenhs=s
  54. 540 s=0:print""spc(15-len(str$(hs))/2)"high score:"hs
  55. 550 poke53280,4:print"press [129]fire[144] to play"
  56. 560 fora=54272to54296:pokea,0:next:v=54296:u1=54273
  57. 570 u2=54280:poke54277,17:poke54284,17:poke54278,255:poke54285,255
  58. 580 poke54276,129:poke54283,33
  59. 590 wait56320,16,0:wait56320,16,16
  60. 600 print"[147]":poke53281,0:forx=12544to12561:pokex,.:next
  61. 610 forx=12288to12383:readd:pokex,d:next:poke53272,28
  62. 620 t=1:w=40:print"[147][158]> 0":pokev,15
  63. 630 print"[157][157][157][157][157][157][157][157]level[146] 1":print"[129]time[146] 60":c=54272
  64. 640 fora=tto70:pokeu2,20:b=1184+int(rnd(t)*700):pokeb+c,3:pokeb,6:pokeu2,.:next
  65. 650 fora=1144to1183:pokea,7:pokea+c,4:next:fora=1184to1904stepw:pokea+c,4
  66. 660 pokea,7:pokea+39,7:pokea+39+c,4:next:fora=1905to1943:pokea+c,4:pokea,7:next
  67. 670 fora=1to15:pokev,a:pokeu2,5:fory=1to75:next:next:pokeu2,.
  68. 680 n=32:p1=56320:z=1524:h=60:sh=3:e(.)=1510:e(t)=1534:e(2)=1724
  69. 690 e(3)=1204:pokez+c,7:pokez,.:ht=4:lv=1
  70. 700 print"[157][157][157][157][158]@";sh:goto50
  71. 710 print"[157][157][157][157][158]@";sh
  72. 720 data62,120,119,112,28,96,88,54,62,120,127,60,112,120,48,28,124,30,238,14
  73. 730 data56,6,26
  74. 740 data108,124,30,254,60,14,30,12,56,60,90,36,24,60,90,36,102,60,90,36,90
  75. 750 data60,24,36,195
  76. 760 data126,195,153,165,165,153,195,126,204,51,204,51,204,51,204,51,0,34,0
  77. 770 data136,0,34,0
  78. 780 data136,68,0,17,0,68,0,17,0,0,24,60,126,219,219,126,60,0,0,60,126,255
  79. 790 data153,126,60
  80.